home *** CD-ROM | disk | FTP | other *** search
/ Future Workshop / Future Workshop.iso / utility / formula1 / vcform1.3 / VB4 / FORMAT2 / PALETTE6.TXT < prev    next >
Encoding:
Text File  |  1995-09-15  |  2.6 KB  |  65 lines
  1. Attribute VB_Name = "Palette6"
  2. Option Explicit
  3.  
  4. Sub ChangeToPalette6(SS As Object)
  5.    
  6.    With SS
  7.       .PaletteEntry(1) = RGB(0, 0, 0)
  8.       .PaletteEntry(2) = RGB(255, 255, 255)
  9.       .PaletteEntry(3) = RGB(178, 229, 229)
  10.       .PaletteEntry(4) = RGB(175, 229, 226)
  11.       .PaletteEntry(5) = RGB(173, 226, 221)
  12.       .PaletteEntry(6) = RGB(170, 224, 219)
  13.       .PaletteEntry(7) = RGB(165, 221, 214)
  14.       .PaletteEntry(8) = RGB(163, 219, 209)
  15.       .PaletteEntry(9) = RGB(158, 216, 204)
  16.       .PaletteEntry(10) = RGB(153, 214, 198)
  17.       .PaletteEntry(11) = RGB(150, 211, 193)
  18.       .PaletteEntry(12) = RGB(147, 209, 191)
  19.       .PaletteEntry(13) = RGB(142, 206, 186)
  20.       .PaletteEntry(14) = RGB(140, 204, 181)
  21.       .PaletteEntry(15) = RGB(137, 201, 175)
  22.       .PaletteEntry(16) = RGB(132, 198, 170)
  23.       .PaletteEntry(17) = RGB(127, 196, 165)
  24.       .PaletteEntry(18) = RGB(124, 193, 163)
  25.       .PaletteEntry(19) = RGB(122, 191, 158)
  26.       .PaletteEntry(20) = RGB(117, 188, 153)
  27.       .PaletteEntry(21) = RGB(114, 188, 150)
  28.       .PaletteEntry(22) = RGB(112, 183, 145)
  29.       .PaletteEntry(23) = RGB(107, 181, 140)
  30.       .PaletteEntry(24) = RGB(102, 178, 132)
  31.       .PaletteEntry(25) = RGB(99, 175, 130)
  32.       .PaletteEntry(26) = RGB(96, 173, 124)
  33.       .PaletteEntry(27) = RGB(91, 173, 122)
  34.       .PaletteEntry(28) = RGB(89, 170, 117)
  35.       .PaletteEntry(29) = RGB(84, 168, 112)
  36.       .PaletteEntry(30) = RGB(81, 165, 107)
  37.       .PaletteEntry(31) = RGB(76, 160, 102)
  38.       .PaletteEntry(32) = RGB(73, 160, 96)
  39.       .PaletteEntry(33) = RGB(68, 158, 94)
  40.       .PaletteEntry(34) = RGB(66, 155, 89)
  41.       .PaletteEntry(35) = RGB(63, 153, 84)
  42.       .PaletteEntry(36) = RGB(58, 150, 79)
  43.       .PaletteEntry(37) = RGB(53, 147, 73)
  44.       .PaletteEntry(38) = RGB(51, 145, 68)
  45.       .PaletteEntry(39) = RGB(48, 142, 66)
  46.       .PaletteEntry(40) = RGB(43, 140, 61)
  47.       .PaletteEntry(41) = RGB(40, 137, 56)
  48.       .PaletteEntry(42) = RGB(38, 135, 53)
  49.       .PaletteEntry(43) = RGB(33, 132, 48)
  50.       .PaletteEntry(44) = RGB(30, 130, 43)
  51.       .PaletteEntry(45) = RGB(25, 127, 35)
  52.       .PaletteEntry(46) = RGB(20, 124, 33)
  53.       .PaletteEntry(47) = RGB(17, 122, 28)
  54.       .PaletteEntry(48) = RGB(15, 119, 25)
  55.       .PaletteEntry(49) = RGB(12, 119, 20)
  56.       .PaletteEntry(50) = RGB(7, 117, 15)
  57.       .PaletteEntry(51) = RGB(2, 112, 10)
  58.       .PaletteEntry(52) = RGB(0, 109, 5)
  59.       .PaletteEntry(53) = RGB(0, 107, 0)
  60.       .PaletteEntry(54) = RGB(0, 104, 0)
  61.       .PaletteEntry(55) = RGB(0, 99, 0)
  62.       .PaletteEntry(56) = RGB(0, 94, 0)
  63.    End With
  64. End Sub
  65.